1 PRINTCHR$(147)CHR$(5):POKE53281,0:FORX=0TO5:PRINT:NEXT
2 PRINTTAB(13)"ANY PRINTER/64"
3 PRINT:PRINTTAB(17)"*1984*":PRINT:PRINTTAB(13)"GARY V. FIELDS"
4 FORX=0TO3000:NEXT
15 CLR:OPEN15,8,15
16 U$=CHR$(145):RT$=CHR$(18):LS$="                          "
17 RO$=CHR$(146):WT$=CHR$(5):RD$=CHR$(28):N$=CHR$(0)
20 POKE53280,0
22 GOTO 700
25 PRINTRT$RD$"DISK DISPLAY"WT$
26 PRINT:CLOSE1,8,0:OPEN1,8,0,"$0":A=0:GOSUB 60
27 IFD2$<>"OK"THENCLOSE1
28 GET#1,A$,A$
29 F$="":B=0:GET#1,A$,A$
31 IFA$=""THENCLOSE1:PRINTRT$"    END DIRECTORY   "WT$
32 IFA$=""THEN FORX=0TO14-A:PRINTLS$:NEXTX:GOSUB50:RETURN
34 GET#1,A$
35 IFA$=""THENA=A+1:GOTO40
36 IFA$=CHR$(34)THENB=1:A$=""
37 IFB=1THENF$=F$+A$
38 IFLEN(F$)>19THENPRINTF$:GOTO29
39 GOTO34
40 IFA<14THEN29
41 PRINTRT$" FILE FOUND?  (Y/N) "WT$:POKE198,0
42 GETQ$:IFQ$=""THEN42
43 PRINTU$U$:PRINTLS$
44 IFQ$="Y"THENA$="":GOTO31
45 PRINTU$U$:PRINTLS$CHR$(19):PRINT:PRINT:PRINT:A=0:GOTO29
50 PRINTCHR$(19):FORX=0TO17:PRINT:NEXT:RETURN
60 INPUT#15,D1,D2$,D3,D4:RETURN
200 IFA=32THENA$=" ":RETURN
201 IFA=17THENA$="[CRSR D]":RETURN
202 IFA=29THENA$="[CRSR R]":RETURN
203 IFA=145THENA$="[CRSR U]":RETURN
204 IFA=147THENA$="[CLR/HOME]":RETURN
205 IFA=157THENA$="[CRSR L]":RETURN
206 IFA=19THENA$="[HOME]":RETURN
207 IFFT$="S"ANDA=13THENPRINT#1:RETURN
208 IFA=13THENA$="[RETURN]":RETURN
209 IFA=14THENA$="[LOWER CASE]":RETURN
210 IFA=5THENA$="[WHITE]":RETURN
211 IFA=18THENA$="[REV ON]":RETURN
212 IFA=20THENA$="[DEL]":RETURN
213 IFA=28THENA$="[RED]":RETURN
214 IFA=30THENA$="[GREEN]":RETURN
215 IFA=31THENA$="[BLUE]":RETURN
216 IFA=141THENA$="[SHFT RETURN]":RETURN
217 IFA=142THENA$="[UPPER CASE]":RETURN
218 IFA=144THENA$="[BLACK]":RETURN
219 IFA=146THENA$="[REV OFF]":RETURN
220 IFA=148THENA$="[INST]":RETURN
221 IFA=156THENA$="[PUR]":RETURN
222 IFA=158THENA$="[YEL]":RETURN
223 IFA=159THENA$="[CYN]":RETURN
224 IFA=255THENA$="[PI]":RETURN
225 IFA=133THENA$="[F1]":RETURN
226 IFA=134THENA$="[F3]":RETURN
227 IFA=135THENA$="[F5]":RETURN
228 IFA=136THENA$="[F7]":RETURN
229 IFA=137THENA$="[F2]":RETURN
230 IFA=138THENA$="[F4]":RETURN
231 IFA=139THENA$="[F6]":RETURN
232 IFA=140THENA$="[F8]":RETURN
233 IFA=160THENA$=" ":RETURN
234 IFA=151THENA$="[GREY 1]":RETURN
235 IFA=152THENA$="[GREY 2]":RETURN
236 IFA=155THENA$="[GREY 3]":RETURN
237 IFA=129THENA$="[ORANGE]":RETURN
238 IFA=150THENA$="[LT RED]":RETURN
239 IFA=153THENA$="[LT GREEN]":RETURN
240 IFA=154THENA$="[LT BLUE]":RETURN
241 IFA=149THENA$="[BROWN]":RETURN
250 X$=STR$(A):X$=MID$(X$,2,3):A$="[CHR$("+X$+")]":RETURN
300 IFA=153THENA$="PRINT":RETURN
301 IFA=151THENA$="POKE":RETURN
302 IFA=152THENA$="PRINT#":RETURN
303 IFA=129THENA$="FOR":RETURN
304 IFA=131THENA$="DATA":RETURN
305 IFA=137THENA$="GOTO":RETURN
306 IFA=139THENA$="IF":RETURN
307 IFA=141THENA$="GOSUB":RETURN
308 IFA=142THENA$="RETURN":RETURN
309 IFA=163THENA$="TAB(":RETURN
310 IFA=164THENA$="TO":RETURN
311 IFA=175THENA$="AND":RETURN
312 IFA=176THENA$="OR":RETURN
313 IFA=199THENA$="CHR$":RETURN
314 IFA=140THENA$="RESTORE":RETURN
315 IFA=170THENA$="+":RETURN
316 IFA=171THENA$="-":RETURN
317 IFA=172THENA$="*":RETURN
318 IFA=173THENA$="/":RETURN
319 IFA=174THENA$="^":RETURN
320 IFA=177THENA$=">":RETURN
321 IFA=178THENA$="=":RETURN
322 IFA=179THENA$="<":RETURN
323 IFA=194THENA$="PEEK":RETURN
324 IFA=167THENA$="THEN":RETURN
325 IFA=133THENA$="INPUT":RETURN
326 IFA=132THENA$="INPUT#":RETURN
327 IFA=143THENA$="REM":RETURN
328 IFA=159THENA$="OPEN":RETURN
329 IFA=160THENA$="CLOSE":RETURN
330 IFA=169THENA$="STEP":RETURN
331 IFA=201THENA$="RIGHT$":RETURN
332 IFA=147THENA$="LOAD":RETURN
333 IFA=203THENA$="GO":RETURN
340 IFA=128THENA$="END":RETURN
341 IFA=130THENA$="NEXT":RETURN
342 IFA=134THENA$="DIM":RETURN
343 IFA=135THENA$="READ":RETURN
345 IFA=138THENA$="RUN":RETURN
346 IFA=144THENA$="STOP":RETURN
347 IFA=145THENA$="ON":RETURN
348 IFA=148THENA$="SAVE":RETURN
349 IFA=149THENA$="VERIFY":RETURN
350 IFA=150THENA$="DEF":RETURN
351 IFA=154THENA$="CONT":RETURN
352 IFA=155THENA$="LIST":RETURN
353 IFA=156THENA$="CLR":RETURN
354 IFA=157THENA$="CMD":RETURN
355 IFA=197THENA$="VAL":RETURN
356 IFA=161THENA$="GET":RETURN
357 IFA=165THENA$="FN":RETURN
358 IFA=166THENA$="SPC(":RETURN
359 IFA=168THENA$="NOT":RETURN
360 IFA=180THENA$="SGN":RETURN
361 IFA=181THENA$="INT":RETURN
362 IFA=182THENA$="ABS":RETURN
363 IFA=183THENA$="USR":RETURN
364 IFA=184THENA$="FRE":RETURN
365 IFA=185THENA$="POS":RETURN
366 IFA=186THENA$="SQR":RETURN
367 IFA=187THENA$="RND":RETURN
368 IFA=188THENA$="LOG":RETURN
369 IFA=189THENA$="EXP":RETURN
370 IFA=190THENA$="COS":RETURN
371 IFA=191THENA$="SIN":RETURN
372 IFA=192THENA$="TAN":RETURN
373 IFA=193THENA$="ATN":RETURN
374 IFA=195THENA$="LEN":RETURN
375 IFA=196THENA$="STR$":RETURN
376 IFA=158THENA$="SYS":RETURN
377 IFA=198THENA$="ASC":RETURN
378 IFA=200THENA$="LEFT$":RETURN
379 IFA=202THENA$="MID$":RETURN
380 IFA=146THENA$="WAIT":RETURN
381 IFA=162THENA$="NEW":RETURN
382 IFA=136THENA$="LET":RETURN
383 IFA=255THENA$="[PI]":RETURN
390 X$=STR$(A):X$=MID$(X$,2,3):A$="CHR$("+X$+")":RETURN
700 PRINTCHR$(147):PRINT:PRINT:PRINT
710 PRINT:PRINT
720 DD$="":INPUT"VIEW THE DISK DIRECORY (Y/N)";DD$
722 IFDD$="Y"THENPRINTCHR$(147):GOSUB25:A=0
730 NF$="":INPUT"NAME FILE";NF$
732 IFLEN(NF$)<1ORLEN(NF$)>16THENPRINTU$U$:GOTO730
740 FT$="":PRINT"FILE TYPE: "RT$"P"RO$"RG OR "RT$"S"RO$"EQ";:INPUTFT$
742 IFFT$<>"P"THENIFFT$<>"S"THENPRINTU$U$:GOTO740
750 FD$="":PRINT"PRINT TO "RT$"S"RO$"CREEN OR "RT$"P"RO$"RINTER";:INPUTFD$
752 IFFD$<>"S"THENIFFD$<>"P"THENPRINTU$U$:GOTO750
754 IFFD$="S"THENFD=3
756 IFFD$="P"THENFD=4
760 SK=0:PRINT"# BYTES TO SKIP "RT$"<RETURN>"RO$" = NONE":INPUTSK
800 PRINTCHR$(147):FORX=0TO4:PRINT
810 PRINTRT$" SEARCHING FOR:  "NF$" ,"FT$
830 IFFD=3THENTY$="SCREEN"
835 IFFD=4THENTY$="PRINTER"
840 PRINTTAB(3)"DISPLAY ON: "TY$
845 PRINTTAB(5)RT$" < F1 TO ABORT> "
850 CLOSE8:OPEN8,8,8,"0:"+NF$+","+FT$+",R"
852 IFSK>0THENFORX=0TOSK:GET#8,A$:NEXT:X=0
855 CLOSE1:OPEN1,FD
856 PRINT#1,NF$
860 GOSUB60:IFA>0THENPRINTCHR$(147)D1;D2$,D3;D4:GOTO1000
865 IFFT$="P"THENGET#8,A$,B$
870 IFFT$="P"THENGET#8,A$,B$
874 IFFT$="S"THEN905
875 GET#8,C$,D$:F1=ASC(C$+N$):F2=ASC(D$+N$)
880 IFST=0THENPRINT#1,(F2*256)+F1;
890 GET#8,A$:A=ASC(A$+N$):IFA>0THENC=0
891 GETBK$:IFBK$=CHR$(133)THENGOTO1000
892 IFA=0THENFL=0:PRINT#1:C=C+1:GOTO870
893 IFST=0THEN900
895 IFST=64THEN1000
896 PRINT"STATUS: "ST:GOTO1000
900 IFFL=0ANDA=34THENFL=1:GOTO905
901 IFFL=1ANDA>93THENGOSUB200:GOTO910
902 IFA=34 THENFL=0
903 IFA<33THENGOSUB200:GOTO910
904 IFA>93THENGOSUB300:GOTO910
905 PRINT#1,CHR$(A);:A=0:GOTO890
910 PRINT#1,A$;:GOTO890
1000 PRINT#1:GOSUB60
1001 PRINTCHR$(5):CLOSE1:CLOSE8:CLOSE15
1010 IFD1>0THENPRINT"ERROR-"
1011 PRINT"DISK STATUS:"D1;D2$,D3;D4
1015 PRINT:PRINT" 1. ==> TRY AGAIN":PRINT" 2. ==> RETURN TO LOADSTAR"
1017 PRINT"WHICH ?"
1020 POKE198,0:WAIT198,1:GETQ$:IFQ$<>"1"ANDQ$<>"2"THEN1020
1030 IFQ$="1"THENCLR:GOTO15
1040 LOAD"HELLO CONNECT",8